home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Unreleased
/
(c)d14.d64
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-11
|
1KB
|
40 lines
100 POKE53280,15:POKE53281,15:PRINTCHR$(14):DV=PEEK(186):IFX<>0THEN220
110 PRINT"[147][151][196]O [217]OU [200]AVE A [198]ASTLOAD [213]TILITY? ([217]/[206])"
120 PRINT"([197]G. [202]IFFY[196]OS, [211]NAPSHOT, [197]PYX, ETC..)
130 [161]FL$:[139]FL$[178]""[167]130
140 [139]FL$[178]"Y"[167]FL[178]1:[137]170
150 [139]FL$[178]"N"[167]FL[178]0:[137]170
160 [137]130
170 [153]:[153]"(null)ANT A LENLASSY VALNVIRONMENT? ((null)/(null))"
180 [161]CL$:[139]CL$[178]""[167]180
190 [139]CL$[178]"Y"[167]X[178]0:[137]220
200 [139]CL$[178]"N"[167]290
210 [137]180
220 [139]X[178]0[167]X[178]1:[147]"ZAKP",DV,1
230 [139]X[178]1[167]X[178]2:[147]"ZAK",DV,1
240 [139]X[178]2[167]X[178]3:[147]"TPUG",DV,1
250 [158]53166
260 [151]53265,[194](53265)[171]16:[151]53272,[194](53272)[176]8:[151]53265,[194](53265)[176]32
270 X[178]1024:Y[178]16192:[129]I[178]0[164]999:[151]X[170]I,[194](Y[170]I):[130]:[151]53265,[194](53265)[170]16
280 [129]Z[178]1[164]3500:[130]Z:[151]53265,[194](53265)[175]223:[151]53272,[194](53272)[175]246
290 [153]"LOAD TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
300 [153][163]8)"STOP(null)(null)(null)CHR$ STR$ISKETTED RIGHT$STR$ (C) STR$14"
310 [153]" TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
320 [153]:[153]"SYS LENHOOSE (null)ROGRAM TO (null)OAD:"
330 [153]:[153]"PRINT#[1] STR$IGITAL (null)USIC/STR$AVE"
340 [153]"[2] (null)ITS STR$IGI"
350 [153]"[3] LEFT$OLIDAY (null)AP STR$IGI"
360 [153]"[4] (null)EVOLUTIONS STR$EMO"
370 [153]"STOPCHR$UIDI'S (null)OADER (null)2.6 (C)92/4 (null)TEVE CHR$UIDI";
380 [153]"POKE (null)(null)(null)CHR$ (null)ITLE (null)IC STR$RAWN PEEKY (null)TEVE CHR$UIDI!"
390 [161]A$:[139]A$[178]""[167]390
400 [139]A$[178]"1"[167]B$[178]"DIGITAL MUS.DAVE":[137]450
410 [139]A$[178]"2"[167]B$[178]"WITS DIGI":[137]450
420 [139]A$[178]"3"[167]B$[178]"HOLIDAY RAP":[137]450
430 [139]A$[178]"4"[167]B$[178]"REVOLUTIONS":[137]450
440 [137]390
450 [139]CL$[178]"Y"[167][158]53203
460 C$[178]"BOOT."[170]A$
470 [139]FL[178]0[167][147]C$,DV,1
480 [139]FL[178]1[167][147]B$,DV,1